home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Pascal / Snippets / ListDemo 1.0 / ListDemo.r < prev    next >
Text File  |  1988-06-25  |  4KB  |  116 lines
  1. /***********************************************************************\
  2.  *  File: ListDemo.r                                                                               *
  3.  * This file requires the (public domain) program "ResTools" or the    *
  4.  * "Rez" tool from MPW for compilation                                 *
  5. \***********************************************************************/
  6.  
  7. /***********************************************************************\
  8.  * Resource file for ListDemo.pas, a demonstration of the List Manager *
  9.  * Written June 24-25, 1988 by Richard Clark.                                    *
  10.  * (eMail:: GEnie/MCI/DELPHI/MouseHole -- RDCLARK.  CompuServe users   *
  11.  *  should use the MCI gateway.)                                       *
  12.  * Written at the request of Kevin-Neil Klop of the Borland Product    *
  13.  * Support Roundtable on the GEnie network.                            *
  14. \***********************************************************************/
  15.  
  16. /***********************************************************************\
  17.  * This software is in the Public Domain, and may be used and modified *
  18.  * freely.                                                                                       *
  19. \***********************************************************************/
  20.  
  21. FILETYPE 'rsrc';
  22. CREATOR  'RSED';
  23.  
  24. resource 'MENU' (128, "Apple") {
  25.     128,
  26.     textMenuProc,
  27.     0xfffffffb,
  28.     enabled,
  29.     "\0x14",
  30.     {
  31.     "About ListDemo…", noIcon, noKey, noMark, plain;
  32.     "-", noIcon, noKey, noMark, plain
  33.     }
  34. };
  35.  
  36. resource 'MENU' (129, "File") {
  37.     129,
  38.     textMenuProc,
  39.     0xfffffff3,
  40.     enabled,
  41.     "File",
  42.     {
  43.     "New", noIcon, 'N', noMark, plain;
  44.     "Close", noIcon, 'W', noMark, plain;  /* initially disabled */
  45.     "-", noIcon, noKey, noMark, plain;
  46.     "Quit", noIcon, 'Q', noMark, plain
  47.     }
  48. };
  49.  
  50. resource 'WIND' (128) {
  51.     {40, 80, 240, 400},  /* windowRect */
  52.     documentProc,        /* windowType */
  53.     visible,             /* visible or invisible */
  54.     goAway,              /* hasClose */
  55.     -1,                  /* refCon */
  56.     "List Demonstration" /*title */
  57. };
  58.  
  59. resource  'DITL' (128)
  60. {
  61.   {
  62.     {82, 99, 102, 159},
  63.       Button {enabled, "OK"};
  64.     {3, 80, 20, 171},
  65.       StaticText {disabled, "ListDemo 1.0"};
  66.     {22, 35, 57, 222},
  67.       StaticText {disabled, "A demonstration of the List Manager."};
  68.     {59, 14, 79, 243},
  69.       StaticText {disabled, "by Richard Clark (GEnie: RDCLARK)"}
  70.   }
  71. };
  72.  
  73. resource  'DLOG' (128 , "About")
  74. {
  75.     {86, 74, 190, 328},
  76.     1,
  77.     visible,
  78.     noGoAway,
  79.     0x0,
  80.     128,
  81.     "About ListDemo"
  82. };
  83.  
  84. resource 'STR#' (128, "Font sizes") {
  85.     "9";
  86.     "10";
  87.     "12";
  88.     "14";
  89.     "18";
  90.     "20";
  91.     "24"
  92. };
  93.  
  94. userdefined resource 'vers' (1) {            /* New version resource format beginning with system 6.0 */
  95.   byte:    0x01;            /* First (integer) part of version number, in BCD */
  96.   byte:    0x00;            /* Second and third (decimal) parts of version number, in BCD */
  97.   byte:    0x80;        /* development = 0x20, alpha = 0x40, beta = 0x60, release = 0x80 */
  98.   byte:    0x00;        /* Stage (if any) of non-release version */
  99.   integer: 0;                /* Country code (0 = US; see IM I-508 for other countries) */
  100.   pstring: "1.0";       /* Short textual form of version number */
  101.   pstring: "1.0 by Richard Clark (GEnie/MCI/DELPHI: RDCLARK)"
  102. };
  103.  
  104.  
  105. userdefined resource 'vers' (2) {            /* "Group" version code */
  106.   byte:    0x01;            /* First (integer) part of version number, in BCD */
  107.   byte:    0x00;            /* Second and third (decimal) parts of version number, in BCD */
  108.   byte:    0x80;        /* development = 0x20, alpha = 0x40, beta = 0x60, release = 0x80 */
  109.   byte:    0x00;        /* Stage (if any) of non-release version */
  110.   integer: 0;                /* Country code (0 = US; see IM I-508 for other countries) */
  111.   pstring: "1.0";       /* Short textual form of version number */
  112.   pstring: "ListMgr Demo 1.0"
  113. };
  114.  
  115.  
  116.